home *** CD-ROM | disk | FTP | other *** search
/ System Booster / System Booster.iso / Archives / ARexxTools / dofile20.lha / dofile / getdtyp / getdtyp.rexx
Encoding:
OS/2 REXX Batch file  |  1996-01-02  |  345 b   |  19 lines
  1. /*
  2. ** $VER: getdtyp.rexx 1.0 (2.1.96) Rolf Rotvel
  3. **
  4. ** Usage: rx getdtyp.rexx <file>
  5. */
  6. call addlib('rexxsupport.library', 0, -30, 0)
  7. call addlib('datatypes.library', 0, -30)
  8.  
  9. parse arg file
  10. if ~exists(file) then exit 10
  11.  
  12. say file
  13. say filetype(file)
  14. exit
  15.  
  16. FILETYPE: procedure
  17. parse arg file
  18. return strip(translate(examinedt(file,,), '', '0'x))
  19.